home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n15.arc / DOSKEY.BAS < prev    next >
BASIC Source File  |  1987-08-15  |  16KB  |  227 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE doskey.COM
  2. 110 OPEN "doskey.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  206 
  6. 150    LINESUM = 0
  7. 155    PRINT  0 ;
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 133451 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,     6,     6,    67,   111,   112,   121,   114,   770
  22. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  23. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  24. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  25. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  26. 340 DATA     67,   111,    46,    74,   101,   102,   102,    32,   635
  27. 350 DATA     80,   114,   111,   115,   105,   115,   101,    67,   808
  28. 360 DATA     76,    83,    13,     0,     0,     0,     0,     0,   172
  29. 370 DATA      0,     0,     7,     0,     0,     0,     0,     0,     7
  30. 380 DATA      4,   100,   105,   114,    32,     0,     0,     0,   355
  31. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  32. 400 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  33. 410 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  34. 420 DATA      5,   116,   121,   112,   101,    32,     0,     0,   487
  35. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  36. 440 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  37. 450 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  38. 460 DATA      5,    99,   111,   112,   121,    32,     0,     0,   480
  39. 470 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  40. 480 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  41. 490 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  42. 500 DATA      4,   100,   101,   108,    32,     0,     0,     0,   345
  43. 510 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  44. 520 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  45. 530 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  46. 540 DATA      6,    99,   104,   100,   105,   114,    32,     0,   560
  47. 550 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  48. 560 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  49. 570 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  50. 580 DATA      5,   112,    97,   116,   104,    32,     0,     0,   466
  51. 590 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  52. 600 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  53. 610 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  54. 620 DATA      7,    98,   114,   111,   119,   115,   101,    32,   697
  55. 630 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  56. 640 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  57. 650 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  58. 660 DATA      3,    99,   108,   115,   255,     0,     0,     0,   580
  59. 670 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  60. 680 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  61. 690 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  62. 700 DATA      7,    98,    97,    99,   107,   117,   112,    32,   669
  63. 710 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  64. 720 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  65. 730 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  66. 740 DATA      8,   114,   101,   115,   116,   111,   114,   101,   780
  67. 750 DATA     32,     0,     0,     0,     0,     0,     0,     0,    32
  68. 760 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  69. 770 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  70. 780 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  71. 790 DATA    251,   128,   252,    10,   116,     5,    46,   255,  1063
  72. 800 DATA     46,   136,     2,    46,   131,    62,    68,     1,   492
  73. 810 DATA      0,   117,    25,    46,   140,    30,    68,     1,   427
  74. 820 DATA     81,    86,   185,    20,     0,   190,     9,     7,   578
  75. 830 DATA     46,   198,     4,     0,   129,   198,   128,     0,   703
  76. 840 DATA    226,   246,    94,    89,    83,   140,   219,    46,  1143
  77. 850 DATA     59,    30,    68,     1,    91,   117,   207,    80,   653
  78. 860 DATA     83,    81,    82,    86,    87,    30,     6,    82,   537
  79. 870 DATA    232,   107,     0,    90,   139,   242,   138,    68,  1016
  80. 880 DATA      1,    10,   192,   116,    88,    70,    14,     7,   498
  81. 890 DATA     46,   139,    62,    59,     1,   177,     7,   211,   702
  82. 900 DATA    231,   129,   199,     9,     7,   138,   200,   254,  1167
  83. 910 DATA    193,    50,   237,   252,   243,   164,    46,   255,  1440
  84. 920 DATA      6,    59,     1,    46,   131,    62,    59,     1,   365
  85. 930 DATA     15,   117,     7,    46,   199,     6,    59,     1,   450
  86. 940 DATA      0,     0,    46,   161,    59,     1,    46,   163,   476
  87. 950 DATA     61,     1,    46,   198,     6,    63,     1,     0,   376
  88. 960 DATA    139,   242,   131,   198,     2,   191,    55,     1,   959
  89. 970 DATA    185,     4,     0,   172,    36,   223,   174,   117,   911
  90. 980 DATA     12,   226,   248,   232,   118,     3,   131,   238,  1208
  91. 990 DATA      5,   199,     4,     0,    13,     7,    31,    95,   354
  92. 1000 DATA    94,    90,    89,    91,    88,   207,   180,    15,   854
  93. 1010 DATA   205,    16,   254,   204,    46,   136,    38,    70,   969
  94. 1020 DATA     1,    30,     7,   139,   250,   131,   199,     2,   759
  95. 1030 DATA   139,   242,    70,   198,     4,     0,    46,   198,   897
  96. 1040 DATA     6,    71,     1,     1,   252,   180,    11,   205,   727
  97. 1050 DATA    33,    10,   192,   117,     4,   205,    40,   235,   836
  98. 1060 DATA   244,   180,     8,   205,    33,    10,   192,   116,   988
  99. 1070 DATA    55,    60,     8,   117,     5,   232,   182,     1,   660
  100. 1080 DATA   235,   227,    60,    27,   117,    19,   232,   249,  1166
  101. 1090 DATA     2,    46,   161,    59,     1,    46,   163,    61,   539
  102. 1100 DATA     1,    46,   198,     6,    63,     1,     0,   235,   550
  103. 1110 DATA   204,    60,    13,   116,     5,   232,   207,     1,   838
  104. 1120 DATA   235,   195,   232,   195,     2,    38,   198,     5,  1100
  105. 1130 DATA    13,   180,     2,   178,    13,   205,    33,   195,   819
  106. 1140 DATA   180,     8,   205,    33,    60,   133,   116,    12,   747
  107. 1150 DATA    60,   134,   116,     8,    60,    61,   114,    29,   582
  108. 1160 DATA    60,    68,   119,    25,   168,   128,   116,     2,   686
  109. 1170 DATA    44,    64,    44,    61,   152,   177,     5,   211,   758
  110. 1180 DATA   224,     5,    72,     1,   232,    57,     1,    60,   652
  111. 1190 DATA   255,   116,   199,   235,   136,    60,    59,   117,  1177
  112. 1200 DATA    22,    46,   254,     6,    66,     1,    46,   128,   569
  113. 1210 DATA    62,    66,     1,    16,   117,    84,    46,   198,   590
  114. 1220 DATA     6,    66,     1,     0,   235,    76,   144,    60,   588
  115. 1230 DATA    84,   117,    22,    46,   254,    14,    66,     1,   604
  116. 1240 DATA    46,   128,    62,    66,     1,   255,   117,    58,   733
  117. 1250 DATA    46,   198,     6,    66,     1,    15,   235,    50,   617
  118. 1260 DATA   144,    60,    60,   117,    22,    46,   254,     6,   709
  119. 1270 DATA    67,     1,    46,   128,    62,    67,     1,     8,   380
  120. 1280 DATA   117,    32,    46,   198,     6,    67,     1,     0,   467
  121. 1290 DATA   235,    24,   144,    60,    85,   117,    27,    46,   738
  122. 1300 DATA   254,    14,    67,     1,    46,   128,    62,    67,   639
  123. 1310 DATA     1,   255,   117,     6,    46,   198,     6,    67,   696
  124. 1320 DATA     1,     7,   232,   103,     2,   199,     4,     0,   548
  125. 1330 DATA    13,   195,    60,    71,   117,    15,   232,     4,   707
  126. 1340 DATA     2,    46,   198,     6,    71,     1,     1,   139,   464
  127. 1350 DATA   254,    71,   233,     8,   255,    60,    79,   117,  1077
  128. 1360 DATA     6,   232,     4,     2,   233,   254,   254,    60,  1045
  129. 1370 DATA    75,   117,     6,   232,   152,     1,   233,   244,  1060
  130. 1380 DATA   254,    60,    77,   117,     6,   232,   181,     1,   928
  131. 1390 DATA   233,   234,   254,    60,    82,   117,     9,    46,  1035
  132. 1400 DATA   128,    54,    65,     1,     1,   233,   221,   254,   957
  133. 1410 DATA    60,    83,   117,     6,   232,    83,     1,   233,   815
  134. 1420 DATA   211,   254,    60,    72,   117,    56,    46,   128,   944
  135. 1430 DATA    62,    63,     1,    15,   116,    45,    46,   161,   509
  136. 1440 DATA    61,     1,    72,    61,   255,   255,   117,     3,   825
  137. 1450 DATA   184,    14,     0,   139,   208,   177,     7,   211,   940
  138. 1460 DATA   224,     5,     9,     7,    86,   139,   240,    46,   756
  139. 1470 DATA   128,    60,     0,    94,   116,    13,    46,   137,   594
  140. 1480 DATA    22,    61,     1,    46,   254,     6,    63,     1,   454
  141. 1490 DATA   232,    69,     0,   233,   151,   254,    60,    80,  1079
  142. 1500 DATA   117,    47,    46,   128,    62,    63,     1,     0,   464
  143. 1510 DATA   116,    39,    46,   161,    61,     1,    64,    61,   549
  144. 1520 DATA    15,     0,   117,     2,    51,   192,    46,   163,   586
  145. 1530 DATA    61,     1,    46,   254,    14,    63,     1,   117,   557
  146. 1540 DATA     6,   232,   142,     1,   233,   110,   254,   177,  1155
  147. 1550 DATA     7,   211,   224,     5,     9,     7,   232,    15,   710
  148. 1560 DATA     0,   233,    97,   254,   227,     9,   180,     2,  1002
  149. 1570 DATA   172,   138,   208,   205,    33,   226,   249,   195,  1426
  150. 1580 DATA    80,   232,   110,     1,    88,    30,    86,    14,   641
  151. 1590 DATA    31,   139,   240,   138,    12,    50,   237,    38,   885
  152. 1600 DATA   136,    77,   255,    70,   180,     2,   138,    20,   878
  153. 1610 DATA   205,    33,   164,    46,   254,     6,    71,     1,   780
  154. 1620 DATA   226,   242,   172,    94,    31,   195,    46,   128,  1134
  155. 1630 DATA    62,    71,     1,     1,   116,    48,   138,    12,   449
  156. 1640 DATA    46,    42,    14,    71,     1,   254,   193,    50,   671
  157. 1650 DATA   237,    81,   227,     9,    86,    87,   139,   247,  1113
  158. 1660 DATA    79,   243,   164,    95,    94,   232,   174,     0,  1081
  159. 1670 DATA    89,    82,    86,   139,   247,   232,   164,   255,  1294
  160. 1680 DATA   180,     2,   178,    32,   205,    33,    94,    90,   814
  161. 1690 DATA   180,     2,   205,    16,   254,    12,   195,    46,   910
  162. 1700 DATA   128,    62,    65,     1,     0,   117,    40,   138,   551
  163. 1710 DATA    12,    46,    58,    14,    71,     1,   115,    12,   329
  164. 1720 DATA   138,    76,   255,    42,    12,   128,   249,     1,   901
  165. 1730 DATA   116,    15,   254,     4,   170,   180,     2,   138,   879
  166. 1740 DATA   208,   205,    33,    46,   254,     6,    71,     1,   824
  167. 1750 DATA   195,   184,     7,    14,   205,    16,   195,   138,   954
  168. 1760 DATA    76,   255,    42,    12,   128,   249,     1,   116,   879
  169. 1770 DATA   240,   138,    12,    46,    58,    14,    71,     1,   580
  170. 1780 DATA   114,   216,    46,    42,    14,    71,     1,   254,   758
  171. 1790 DATA   193,    50,   237,    81,    86,     3,   249,   139,  1038
  172. 1800 DATA   247,    78,   253,   243,   164,   252,    94,    38,  1369
  173. 1810 DATA   136,     5,   180,     3,   205,    16,    89,    65,   699
  174. 1820 DATA    82,    86,   139,   247,   232,    45,   255,    94,  1180
  175. 1830 DATA    90,   180,     2,   205,    16,   254,     4,   235,   986
  176. 1840 DATA    76,   144,   138,    12,    46,    58,    14,    71,   559
  177. 1850 DATA     1,   114,    26,    46,    42,    14,    71,     1,   315
  178. 1860 DATA    50,   237,    81,   227,     9,    86,    87,   139,   916
  179. 1870 DATA   247,    70,   243,   164,    95,    94,   180,     3,  1096
  180. 1880 DATA   205,    16,   233,    83,   255,   195,    46,   128,  1161
  181. 1890 DATA    62,    71,     1,     1,   116,    30,   180,     3,   464
  182. 1900 DATA   205,    16,    10,   210,   116,     5,   254,   202,  1018
  183. 1910 DATA   235,     8,   144,    46,   138,    22,    70,     1,   664
  184. 1920 DATA   254,   206,   180,     2,   205,    16,    79,    46,   988
  185. 1930 DATA   254,    14,    71,     1,   195,   138,    12,    46,   731
  186. 1940 DATA    58,    14,    71,     1,   114,    30,   180,     3,   471
  187. 1950 DATA   205,    16,    46,    58,    22,    70,     1,   116,   534
  188. 1960 DATA     5,   254,   194,   235,     5,   144,    50,   210,  1097
  189. 1970 DATA   254,   198,   180,     2,   205,    16,    71,    46,   972
  190. 1980 DATA   254,     6,    71,     1,   195,    46,   138,    14,   725
  191. 1990 DATA    71,     1,   254,   201,    50,   237,   227,     7,  1048
  192. 2000 DATA    81,   232,   162,   255,    89,   226,   249,   195,  1489
  193. 2010 DATA   138,    12,    46,    58,    14,    71,     1,   114,   454
  194. 2020 DATA    16,    46,    42,    14,    71,     1,   254,   193,   637
  195. 2030 DATA    50,   237,    81,   232,   175,   255,    89,   226,  1345
  196. 2040 DATA   249,   195,   138,    12,    50,   237,   227,    35,  1143
  197. 2050 DATA    81,   232,   201,   255,   180,     3,   205,    16,  1173
  198. 2060 DATA    89,    82,   180,     2,   178,    32,   205,    33,   801
  199. 2070 DATA   226,   252,   180,     2,    90,   205,    16,   198,  1169
  200. 2080 DATA     4,     0,    46,   198,     6,    71,     1,     1,   327
  201. 2090 DATA   139,   254,    71,   195,    30,   184,    64,     0,   937
  202. 2100 DATA   142,   216,    46,   138,    22,    70,     1,   182,   817
  203. 2110 DATA    25,    46,   128,    62,    64,     1,     0,   116,   442
  204. 2120 DATA    11,   246,     6,   135,     0,     8,   117,     4,   527
  205. 2130 DATA   138,    54,   132,     0,    46,   138,    62,    67,   637
  206. 2140 DATA     1,   177,     4,   210,   231,    46,    10,    62,   741
  207. 2150 DATA    66,     1,   184,     0,     6,    51,   201,   205,   714
  208. 2160 DATA    16,   180,    15,   205,    16,   180,     2,    51,   665
  209. 2170 DATA   210,   205,    16,    31,   195,   156,   251,   128,  1192
  210. 2180 DATA   252,     2,   114,     6,   157,    46,   255,    46,   878
  211. 2190 DATA   140,     2,   128,   204,    16,    46,   255,    30,   821
  212. 2200 DATA   140,     2,   156,    60,   224,   117,     6,    10,   715
  213. 2210 DATA   228,   116,     2,    50,   192,   157,   202,     2,   949
  214. 2220 DATA     0,   180,    18,   179,    16,   205,    16,   128,   742
  215. 2230 DATA   251,    16,   116,     4,   254,     6,    64,     1,   712
  216. 2240 DATA   184,    33,    53,   205,    33,   137,    30,   136,   811
  217. 2250 DATA     2,   140,     6,   138,     2,   180,    37,   141,   646
  218. 2260 DATA    22,   144,     2,   205,    33,    51,   192,   142,   791
  219. 2270 DATA   192,    38,   128,    54,    23,     4,   128,   180,   747
  220. 2280 DATA    18,   205,    22,    38,    58,     6,    23,     4,   374
  221. 2290 DATA   117,    37,    38,   128,    54,    23,     4,   128,   529
  222. 2300 DATA   180,    18,   205,    22,    38,    58,     6,    23,   550
  223. 2310 DATA     4,   117,    20,   184,    22,    53,   205,    33,   638
  224. 2320 DATA   137,    30,   140,     2,   140,     6,   142,     2,   599
  225. 2330 DATA   180,    37,   186,   229,     6,   205,    33,   186,  1062
  226. 2340 DATA   137,    14,   205,    39,     0,     0,     0,     0,   395
  227.